Gyakorló feladat kiválasztásra:
Tömb feltöltése n darab véletlen számmal és legkisebb elem kiválasztása
program Minimum;
uses crt;
var i,n:integer;
a:array [1..100] of integer;
BEGIN
clrscr;
n
:=
5
10
20
;
i:=1;
writeln('A tomb a rendezes elott');
while (i<=n) do begin
a[i]:=trunc(
*random+1);
i:=i+1;
writeln('A tomb ',i,'. eleme:',a[i]);
end;
min:=a[
];
i:=
;
while (i<=n) do begin
if (a[i]<min) then begin
min:=a[i];
end;
i:=i+
;
end;
writeln('Legkisebb szam: ',
a[i-1]
min
);
end;
END.
